home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / rex.lha / rex / lib / Scanner.md < prev    next >
Text File  |  1992-08-18  |  580b  |  26 lines
  1. (* $Id: Scanner.md,v 2.3 1992/08/18 09:05:32 grosch rel $ *)
  2.  
  3. $@ DEFINITION MODULE @;
  4.  
  5. IMPORT Strings;
  6.  
  7. $E user export declarations
  8.  
  9. CONST EofToken    = 0;
  10.  
  11. VAR TokenLength    : INTEGER;
  12. VAR Attribute    : tScanAttribute;
  13. VAR ScanTabName    : ARRAY [0 .. 127] OF CHAR;
  14. VAR Exit    : PROC;
  15.  
  16. PROCEDURE BeginScanner    ;
  17. PROCEDURE BeginFile    (FileName: ARRAY OF CHAR);
  18. PROCEDURE GetToken    (): INTEGER;
  19. PROCEDURE GetWord    (VAR Word: Strings.tString);
  20. PROCEDURE GetLower    (VAR Word: Strings.tString);
  21. PROCEDURE GetUpper    (VAR Word: Strings.tString);
  22. PROCEDURE CloseFile    ;
  23. PROCEDURE CloseScanner    ;
  24.  
  25. $@ END @.
  26.